    cd "${data}"
	use "dataset.dta", clear


	 twoway (kdensity selfplacement if voted==1 & country_year=="Germany_2019", legend(off) bwidth(2) color(gs10%50) recast(area) xline(5.3, lpattern(dash) lcolor(black%80)) lpattern(dash)) (kdensity selfplacement if voted==0 & country_year=="Germany_2019" ,bwidth(2) color(black%40) recast(area) xline(5, lpattern(shortdash) lcolor(black%80)) lpattern(shortdash) title("Germany 2019") xtitle("Cohen d = 0.07") ytitle(""))
	  graph save "${data}/cohend/d_trivial.gph", replace

	  
	 twoway (kdensity selfplacement if voted==1 & country_year=="Denmark_2019", legend(off) bwidth(2) color(gs10%50) recast(area) xline(5.1, lpattern(dash) lcolor(black%80)) lpattern(dash)) (kdensity selfplacement if voted==0 & country_year=="Denmark_2019" ,bwidth(2) color(black%40) recast(area) xline(4.3, lpattern(shortdash) lcolor(black%80)) lpattern(shortdash) title("Denmark 2019") xtitle("Cohen d = 0.27") ytitle("")) 
	 graph save "${data}/cohend/d_small1.gph", replace

	 twoway (kdensity selfplacement if voted==1 & country_year=="Finland_2014", legend(off) bwidth(2) color(gs10%50) recast(area) xline(5.7,lpattern(dash) lcolor(black%80)) lpattern(dash)) (kdensity selfplacement if voted==0 & country_year=="Finland_2014" ,bwidth(2) color(black%40) recast(area) xline(4.9,lpattern(shortdash) lcolor(black%80)) lpattern(shortdash) title("Finland 2014") xtitle("Cohen d = 0.36") ytitle("")) 
	graph save "${data}/cohend/d_small2.gph", replace

	* twoway (kdensity selfplacement if voted==1 & country_year=="Latvia_2019", legend(off) bwidth(2) color(gs8%50) recast(area) xline(6.3,lpattern(dash))) (kdensity selfplacement if voted==0 & country_year=="Latvia_2019" ,bwidth(2) color(black%50) recast(area) xline(5.4, lpattern(shortdash))) 
	 
	twoway (kdensity selfplacement if voted==1 & country_year=="Estonia_2019", legend(off) bwidth(2) color(gs10%50) recast(area) xline(6,lpattern(dash) lcolor(black%80)) lpattern(dash)) (kdensity selfplacement if voted==0 & country_year=="Estonia_2019" ,bwidth(2) color(black%40) recast(area) xline(4.7, lpattern(shortdash) lcolor(black%80)) lpattern(shortdash) title("Estonia 2019") xtitle("Cohen d = 0.60") ytitle("")) 
	  graph save "${data}/cohend/d_medium.gph", replace

	  cd "${data}/cohend"
	 graph combine d_trivial.gph d_small1.gph d_small2.gph d_medium.gph , ycommon xcommon
	 graph save "${figures}/combined_cohend.gph", replace 
	 graph export "${figures}/combined_cohend.png", as(png) replace
